home *** CD-ROM | disk | FTP | other *** search
/ Apple II Magazines (PO) / Nibble Volume 11, No. 11 (1990-11)(MindCraft Publishing)(Side A)[a].zip / Nibble Volume 11, No. 11 (1990-11)(MindCraft Publishing)(Side A)[a].po / FONT.DISPLAY.bas < prev    next >
BASIC Source File  |  1996-12-24  |  1KB  |  28 lines
  1. 10  REM   *************************
  2. 20  REM   * FONT.DISPLAY          *
  3. 30  REM   * BY: LEO C. CURRAN     *
  4. 40  REM   * COPYRIGHT (C) 1990    *
  5. 50  REM   * MINDCRAFT PUBL. CORP. *
  6. 60  REM   * CONCORD, MA 01742     *
  7. 70  REM   *************************
  8. 80  HOME : HTAB 13: PRINT "FONT DISPLAYER"
  9. 90  HTAB 11: PRINT "BY LEO C. CURRAN"
  10. 100  HTAB 8: PRINT "(C) 1990 MINDCRAFT PUBL."
  11. 110  VTAB 12: PRINT "PLEASE WAIT..."
  12. 120 D$ =  CHR$(4)
  13. 130  IF  PEEK(48896) = 76  THEN  PRINT D$;"PREFIX/RAM"
  14. 140  PRINT D$;"OPEN FONT.TXT"
  15. 150  PRINT D$;"WRITE FONT.TXT"
  16. 160  PRINT "<1=NEW.YORK.12>": PRINT "<2=>": PRINT "<1>FONT DISPLAYED: ": PRINT 
  17. 170  PRINT "Key<t.4>x1<t.8>x2<t1.2>x3<t2.1>Key<t2.5>x1<t2.9>x2<t3.3>x3 <t4.2>Key <t4.6>x1 <t5>x2 <t5.4>x3"
  18. 180  FOR J = 33 TO 64
  19. 190 K = J +32:L = J +64
  20. 200  IF J = 60  OR J = 62  THEN N = J:J = 32: REM    SUPERFONTS DELIMITER
  21. 210  PRINT "<1><x1>" CHR$(J)"<2><t.4>" CHR$(J)"<x2><t.8>" CHR$(J)"<x3><t1.2>" CHR$(J);
  22. 220  IF N = 60  OR N = 62  THEN J = N:N = 0: REM     SUPERFONTS DELIMITER
  23. 230  PRINT "<1> <x1> <t2.1>" CHR$(K)" <2> <t2.5>" CHR$(K)" <x2> <t2.9>" CHR$(K)" <x3> <t3.3>" CHR$(K);
  24. 240  PRINT "<1> <x1> <t4.2>" CHR$(L)" <2> <t4.6>" CHR$(L)" <x2> <t5>" CHR$(L)" <x3> <t5.4>" CHR$(L)
  25. 250  NEXT J
  26. 260  PRINT D$;"CLOSE"
  27. 270  VTAB 12: CALL  -958
  28. 280  PRINT "THE FILE 'FONT.TXT' HAS BEEN CREATED": IF  PEEK(48896) = 76  THEN  PRINT "ON /RAM."